home *** CD-ROM | disk | FTP | other *** search
/ Netware Super Library / Netware Super Library.iso / pgm_tool / nova_prg / read.prg < prev    next >
Encoding:
Text File  |  1990-07-03  |  1.9 KB  |  91 lines
  1. SET TALK OFF
  2. SET SAFETY OFF
  3. *
  4. *  Read Forum Listing into Foxpro/LAN
  5. *
  6. SELE 1
  7. USE NOVA
  8. ZAP
  9. *
  10. PUBLIC DMONTHS
  11. DMONTHS='JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC'
  12. *
  13. TOREAD='FORUM.DOS'
  14. *
  15. FHANDLE=FOPEN(TOREAD)
  16. *
  17. IF FHANDLE < 0
  18.   WAIT 'CANNOT OPEN INPUT FILE' WINDOW
  19.   RETURN
  20. ENDIF
  21. *
  22. DO WHILE .NOT. FEOF(FHANDLE)
  23.   READTST=''
  24.   DO WHILE .NOT. ( AT('-',READTST,1)=29 .AND. AT('-',READTST,2)=33 )
  25.     READTST=FGETS(FHANDLE)
  26.   ENDDO
  27.   LFNAME=SUBSTR(READTST,1,17)
  28.   LDATE=DCON(SUBSTR(READTST,27,9))
  29.   IF SUBSTR(READTST,36,1)='(' .AND. SUBSTR(READTST,46,1)=')'
  30.     LSIZE=PADL(TRIM(SUBSTR(READTST,48,6)),6,' ')
  31.   ELSE
  32.     LSIZE=PADL(TRIM(SUBSTR(READTST,37,6)),6,' ')
  33.   ENDIF
  34.   LLIB=SUBSTR(READTST,61,LEN(READTST)-60)
  35.   *
  36.   READTST=FGETS(FHANDLE)
  37.   *
  38.   IF AT('[',READTST)=1
  39.     LPPN=TRIM(READTST)
  40.   ENDIF
  41.   *
  42.   READTST=FGETS(FHANDLE)
  43.   READTST=FGETS(FHANDLE)
  44.   LTITLE=SUBSTR(READTST,15,LEN(READTST)-14)
  45.   *
  46.   READTST=FGETS(FHANDLE)
  47.   LKEYWORDS=SUBSTR(READTST,15,LEN(READTST)-14)
  48.   READTST=FGETS(FHANDLE)
  49.   IF LEN(TRIM(READTST))>0
  50.     LKEYWORDS=LKEYWORDS+' '+SUBSTR(READTST,5,LEN(READTST)-4)
  51.     READTST=FGETS(FHANDLE)
  52.   ENDIF
  53.   READTST=FGETS(FHANDLE)
  54.   *
  55.   TEMPFILE=FCREATE('MEMO.TXT')
  56.   DO WHILE LEN(TRIM(READTST))>0
  57.     BYTES=FPUTS(TEMPFILE,ALLTRIM(READTST))
  58.     READTST=FGETS(FHANDLE)
  59.   ENDDO
  60.   FOK=FCLOSE(TEMPFILE)
  61.   FOK=FFLUSH(TEMPFILE)
  62.   *
  63.   SELE 1
  64.   APPE BLANK
  65.   REPLACE FNAME WITH LFNAME
  66.   REPLACE SIZE WITH LSIZE
  67.   REPLACE DATE WITH LDATE
  68.   REPLACE LIB WITH LLIB
  69.   REPLACE PPN WITH LPPN
  70.   REPLACE TITLE WITH LTITLE
  71.   REPLACE KEYWORDS WITH LKEYWORDS
  72.   *
  73.   APPEND MEMO DESCRIPT FROM MEMO.TXT OVERWRITE
  74.   *
  75.   *
  76. ENDDO
  77. *
  78. CLOSE ALL
  79. RETURN
  80. *
  81. FUNCTION DCON
  82. *
  83. PARAMETER TOCONV
  84. *
  85. DSTR=UPPER(SUBSTR(TOCONV,4,3))
  86. MONUM=(AT(DSTR,DMONTHS)+2)/3
  87. NEWDATE=CTOD(LTRIM(STR(MONUM))+'-'+SUBSTR(TOCONV,1,2)+SUBSTR(TOCONV,7,3))
  88. *
  89. RETURN NEWDATE
  90.  
  91.